unit dRegiao;

interface
uses
classes,
dObjects;

type
Tregiao=class(TdObjects)
private
fdescrregiao : string;
fdtalteracao : tdatetime;
fflagativo : boolean;
fidregiao : integer;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property descrregiao : string read fdescrregiao write fdescrregiao;
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property flagativo : boolean read fflagativo write fflagativo;
 property idregiao : integer read fidregiao write fidregiao;
end;
implementation
constructor Tregiao.create;
begin
inherited;
clear;
self.AddPK(['idregiao']);
self.TableName := 'regiao';
end;
destructor Tregiao.destroy;
begin
inherited destroy;
end;
procedure Tregiao.clear;
begin
 fdescrregiao  :='';
 fdtalteracao  :=0;
 fflagativo    :=false;
 fidregiao     :=0;
end;


end.
 